TRANSDUCER_RADIUS=8.25;//9.25;//5.1;7.5;//
PIPE_RADIUS=17;//13.4;
PIPE_LENGTH=95;//75//55
CHANNEL_WIDTH=12;//12;//7-15
CHANNEL_HEIGHT=24;
ULTRASONIC_ANGLE=35;//60
ULTRASONIC_LENGTH=90;//42;//52

union(){
difference(){
    
    union(){
    	translate ([0, 0, -25]) 
        rotate([0, 0, 0])
   		cylinder (h = PIPE_LENGTH, r = PIPE_RADIUS);
                
        translate ([-(PIPE_RADIUS+9), .1, -14.9]) 
        rotate([0, ULTRASONIC_ANGLE, 0])
   		cylinder (h = ULTRASONIC_LENGTH, r = TRANSDUCER_RADIUS+2);
    }
    
union(){     
        translate ([-(CHANNEL_HEIGHT/2), -CHANNEL_WIDTH/2, -25]) 
        rotate([0, 0, 0])
   		cube ([CHANNEL_HEIGHT,CHANNEL_WIDTH,PIPE_LENGTH]);    
  
        translate ([-(PIPE_RADIUS+9), 0, -15]) 
        rotate([0, ULTRASONIC_ANGLE, 0])
   		cylinder (h = 150, r = TRANSDUCER_RADIUS);
    }
}
union(){
        translate ([-(CHANNEL_HEIGHT/2), -CHANNEL_WIDTH, -15]) 
        rotate([0, 0, 0])
   		cube ([CHANNEL_HEIGHT,CHANNEL_WIDTH/2,PIPE_LENGTH-20]);

        translate ([-(CHANNEL_HEIGHT/2), CHANNEL_WIDTH/2, -15]) 
        rotate([0, 0, 0])
   		cube ([CHANNEL_HEIGHT,CHANNEL_WIDTH/2,PIPE_LENGTH-20]);
    


// Laminarizing Fins Option
    
        translate ([-(CHANNEL_HEIGHT/2), -.25, -25]) 
        rotate([0, 0, 0])
   		cube ([CHANNEL_HEIGHT,.8,PIPE_LENGTH]);

        translate ([-(CHANNEL_HEIGHT/2), -(CHANNEL_WIDTH/4)-.5, -25]) 
        rotate([0, 0, 0])
   		cube ([CHANNEL_HEIGHT,.8,PIPE_LENGTH]);

        translate ([-(CHANNEL_HEIGHT/2), (CHANNEL_WIDTH/4)-.25, -25]) 
        rotate([0, 0, 0])
  		cube ([CHANNEL_HEIGHT,.8,PIPE_LENGTH]);


 // Flow plates
 
        translate ([-(CHANNEL_HEIGHT/2)-1, -CHANNEL_WIDTH/2, -25]) 
        rotate([0, 0, 0])
   		cube ([1,CHANNEL_WIDTH,20]);
        
        translate ([-(CHANNEL_HEIGHT/2)-1, -CHANNEL_WIDTH/2, 12]) 
        rotate([0, 0, 0])
   		cube ([1,CHANNEL_WIDTH,20]);
        
        translate ([(CHANNEL_HEIGHT/2), -CHANNEL_WIDTH/2, PIPE_LENGTH-45]) 
        rotate([0, 0, 0])
   		cube ([1,CHANNEL_WIDTH,20]);
        
        translate ([(CHANNEL_HEIGHT/2), -CHANNEL_WIDTH/2, PIPE_LENGTH-85]) 
        rotate([0, 0, 0])
   		cube ([1,CHANNEL_WIDTH,20]);

}
}
